home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / patch / pagestream / pgs32tu3 / scripts.lha / CurveText.rexx next >
OS/2 REXX Batch file  |  1996-11-20  |  1KB  |  45 lines
  1. /* $VER: Curve Text 1.0 (11.20.96)
  2.    Copyright 1996 SoftLogik Publishing Corporation
  3.    May not be distributed without SoftLogik Publishing Corporation's express written permission */
  4.  
  5. ADDRESS 'PAGESTREAM'
  6. options results
  7.  
  8. /* CHECK FOR OBJECTS */
  9. getselectedobjects
  10. if result<2 then call OOPS()
  11.  
  12. 'lockinterface true'
  13. 'refresh wait'
  14.  
  15. /* CURVE TEXT */
  16. 'maketextfxpath'
  17. if rc~=0 then do
  18.     'refresh continue'
  19.     'lockinterface false'
  20.     call OOPS()
  21. end
  22. 'edittextobj textfx along scaletofit true'
  23.  
  24. 'refresh continue'
  25. 'refreshwindow'
  26. 'lockinterface false'
  27.  
  28. EXIT
  29.  
  30. OOPS:
  31. /* TextFX not installed or wrong objects */
  32.  
  33.     allocarexxrequester '"Cannot Warp Text"' 366 67
  34.         hAlert=result
  35.     addarexxgadget hAlert TEXT 8 12 348 border none string '"You must have TextFX 2 installed and select"'
  36.     addarexxgadget hAlert TEXT 8 24 348 border none string '"a text block and a path to use this script."'
  37.     addarexxgadget hAlert EXIT 282 48 70 label "Exit"
  38.     doarexxrequester hAlert
  39.     freearexxrequester hAlert
  40.  
  41. 'lockinterface false'
  42.  
  43. EXIT
  44. RETURN
  45.